program pr;

type
    letras = 'A'..'Z';
	digito = 0..(10);

var 
x: digito;

begin
if (true) then x:=5;
else
x:=6;

end.

